home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 5-Fonts & Software / HyperCard 1.2.5 / Help Stacks / Help / card_179610.txt < prev    next >
Encoding:
Text File  |  1987-11-25  |  2.2 KB  |  107 lines
  1. -- card: 179610 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 4507
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   set script of button "New" to empty
  9. end closeCard
  10.  
  11.  
  12. -- part 4 (button)
  13. -- low flags: 00
  14. -- high flags: 8003
  15. -- rect: left=363 top=202 right=251 bottom=473
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 1006 / 1006
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Sample button
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   put "Today is" && the long date
  27. end mouseUp
  28.  
  29.  
  30.  
  31. -- part 10 (button)
  32. -- low flags: 00
  33. -- high flags: 8003
  34. -- rect: left=386 top=263 right=285 bottom=444
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: New
  43.  
  44.  
  45. -- part 14 (button)
  46. -- low flags: 00
  47. -- high flags: 8003
  48. -- rect: left=14 top=294 right=314 bottom=151
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: Restore properties
  57. ----- HyperTalk script -----
  58. on mouseUp
  59.   set script of button "New" to empty
  60.   set name of button 1 to "Sample button"
  61.   set style of button 1 to roundRect
  62.   set rect of button 1 to 363,202,473,251
  63.   Set icon of button 1 to 1006
  64.   Set ShowName of button 1 to true
  65.   Set hilite of button 1 to false
  66.   Set autohilite of button 1 to false
  67. end mouseUp
  68.  
  69.  
  70.  
  71. -- part contents for background part 2
  72. ----- text -----
  73. Button properties
  74.  
  75. -- part contents for background part 43
  76. ----- text -----
  77. 335,253
  78.  
  79. -- part contents for background part 44
  80. ----- text -----
  81. script
  82. name
  83.  number
  84. id
  85. style
  86. rect
  87. loc
  88. icon
  89. showName
  90. hilite
  91. autoHilite
  92.  
  93.  
  94. -- part contents for background part 1
  95. ----- text -----
  96. set script of button "New" to the script of button 1
  97. set name of button "Sample button" to "My button" 
  98. the number of button "New"--can't set
  99. the id of button 1--can't set
  100. set style of button 1 to rectangle--or any style
  101. set the rect of button 1 to 163,202,473,251
  102. set loc of button 1 to 200,200  --center h,v
  103. Set icon of button 1 to 1007
  104. Set ShowName of button 1 to false
  105. Set hilite of button 1 to true
  106. Set autoHilite of button 3 to true
  107.